define alloc
proc( n )
  i := [1,2,3,4,5,6,7,8,9];
  return i
end;
a := alloc(0)